home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Caml Light 0.61 / Source / src / tools / restore_version < prev   
Encoding:
Text File  |  1992-06-23  |  135 b   |  9 lines  |  [TEXT/MPS ]
  1. # usage: restore_version <num>
  2.  
  3. exit if {#} != 1
  4.  
  5. for f in ≈.{1}
  6.   (evaluate {f} =~ /(≈)®1.{1}/) >dev:null
  7.   duplicate -y {f} {®1}
  8. end
  9.